home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / five.zip / INSTRUCT.PAS < prev    next >
Pascal/Delphi Source File  |  1987-03-14  |  5KB  |  117 lines

  1.  
  2.          Const Hold_time = 4000;
  3.  
  4.          begin
  5.          window(36,2,78,24);
  6.          clrscr;
  7.          window(37,2,78,24);
  8.          clrscr;
  9.          writeln;
  10.          writeln('            Instructions');
  11.          writeln;
  12.          writeln('The game of 5000 is played by one or');
  13.          writeln('more players, using a cup of six dice.');
  14.          writeln('Each Player rolls the dice to increase');
  15.          writeln('his score. When any player scores over');
  16.          writeln('5,000 Points, the remaining players');
  17.          writeln('get one more chance to get high score.');
  18.          writeln;
  19.          writeln('Each time you get the cup you must roll');
  20.          writeln('the dice and pull out some dice that');
  21.          writeln('score. You may keep rolling the dice');
  22.          writeln('until you no longer can pull out a score.');
  23.          writeln('HOWEVER--if you can''t pull a score, you');
  24.          writeln('lose all points you''ve accumulated this');
  25.          writeln('turn. This is called a scratch.');
  26.          writeln;
  27.          writeln('If you use all six dice in forming a');
  28.          writeln('score, you may pick up all dice and');
  29.          writeln('continue rolling.');
  30.          writeln;
  31.          delay(Hold_time);
  32.          writeln('To begin scoring points, you must have');
  33.          delay(Hold_time);
  34.          writeln('500 points or 50 points more than the');
  35.          delay(Hold_time);
  36.          writeln('player before you. After you''ve first');
  37.          delay(Hold_time);
  38.          writeln('scored, you only need 350 points, or');
  39.          delay(Hold_time);
  40.          writeln('50 points more than the player before.');
  41.          delay(Hold_time);
  42.          writeln;
  43.          writeln('The first thing the program asks is the');
  44.          delay(Hold_time);
  45.          writeln('number of players.  You must enter a');
  46.          delay(Hold_time);
  47.          writeln('number between 1 and 15. The computer');
  48.          delay(Hold_time);
  49.          writeln('can play any number of times in each');
  50.          delay(Hold_time);
  51.          writeln('round.  The computer can have three');
  52.          delay(Hold_time);
  53.          writeln('different names, depending on strategy.');
  54.          delay(Hold_time);
  55.          writeln('Each name begins with "Comp" and a digit');
  56.          delay(Hold_time);
  57.          writeln('between 1 and 3. The name may have any');
  58.          delay(Hold_time);
  59.          writeln('following identifying characters that');
  60.          delay(Hold_time);
  61.          writeln('you wish.');
  62.          writeln;
  63.          delay(Hold_time);
  64.          writeln('After you''ve entered all of the players');
  65.          delay(Hold_time);
  66.          writeln('names, all that must be done is to play');
  67.          delay(Hold_time);
  68.          writeln('the dice. To pull dice, move the cursor');
  69.          delay(Hold_time);
  70.          writeln('"^", with the left and right arrow');
  71.          delay(Hold_time);
  72.          writeln('keys, until it points to a die that''s');
  73.          delay(Hold_time);
  74.          writeln('to be pulled. The space bar marks and');
  75.          delay(Hold_time);
  76.          writeln('un-marks the dice. When all of the dice');
  77.          delay(Hold_time);
  78.          writeln('that you wish to pull are marked, press');
  79.          delay(Hold_time);
  80.          writeln('the "RETURN" key. STUDY CAREFULLY, when');
  81.          delay(Hold_time);
  82.          writeln('you press the return key, there''s no');
  83.          delay(Hold_time);
  84.          writeln('turning back.');
  85.          delay(Hold_time);
  86.          writeln;
  87.          delay(Hold_time);
  88.          writeln('The scoring of the dice is:');
  89.          delay(Hold_time);
  90.          writeln;
  91.          delay(Hold_time);
  92.          writeln('STRAIGHT                   1,500');
  93.          delay(Hold_time);
  94.          writeln('THREE PAIRS                  500');
  95.          delay(Hold_time);
  96.          writeln('Three Aces                 1,000');
  97.          delay(Hold_time);
  98.          writeln('Aces                         100');
  99.          delay(Hold_time);
  100.          writeln('Fives                         50');
  101.          delay(Hold_time);
  102.          writeln('Three of a kind 300 X face Value');
  103.          delay(Hold_time);
  104.          delay(Hold_time);
  105.          writeln;
  106.          delay(Hold_time);
  107.          writeln('Losing without any score on the board');
  108.          delay(Hold_time);
  109.          writeln('will cost you double. The stakes are');
  110.          delay(Hold_time);
  111.          writeln('a QUARTER a GAME and a DIME for EACH');
  112.          delay(Hold_time);
  113.          writeln('SCRATCH.');
  114.  
  115.          window(2,2,34,24);
  116.          end;
  117.